/* Taken from the Li18nux base test suite.  */

#define _XOPEN_SOURCE 500
#include <errno.h>
#include <locale.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <wchar.h>

#define WIDE_STR_LEN 32


int
main(int argc, char *argv[])
{
	size_t i;
	FILE *fp;
	wchar_t *ret, wcs[WIDE_STR_LEN];
	int result = 0;
	const char il_str1[] = { 0xe3, 0x81, '\0' };
	const char il_str2[] = { '0', '\n', 'A', 'B', 0xe3, 0x81, 'E', '\0' };
	char name1[] = "/tmp/tst-fgetws.out.XXXXXX";
	char name2[] = "/tmp/tst-fgetws.out.XXXXXX";
	int fd;

	puts("This program runs on de_DE.UTF-8 locale.");
	if (setlocale(LC_ALL, "de_DE.UTF-8") == NULL) {
		fprintf(stderr, "Err: Cannot run on the de_DE.UTF-8 locale");
		exit(EXIT_FAILURE);
	}

	/* Make a file `il_str1'. */
	fd = mkstemp(name1);
	if (fd == -1) {
		printf("cannot open temp file: %m\n");
		exit(EXIT_FAILURE);
	}
	if ((fp = fdopen(fd, "w")) == NULL) {
		printf("Can't open %s.\n", argv[1]);
		exit(EXIT_FAILURE);
	}
	fwrite(il_str1, sizeof(char), sizeof(il_str1), fp);
	fclose(fp);

	/* Make a file `il_str2'. */
	fd = mkstemp(name2);
	if (fd == -1) {
		printf("cannot open temp file: %m\n");
		exit(EXIT_FAILURE);
	}
	if ((fp = fdopen(fd, "w")) == NULL) {
		fprintf(stderr, "Can't open %s.\n", argv[1]);
		exit(EXIT_FAILURE);
	}
	fwrite(il_str2, sizeof(char), sizeof(il_str2), fp);
	fclose(fp);

	/* Test for il_str1. */
	if ((fp = fopen(name1, "r")) == NULL) {
		fprintf(stderr, "Can't open %s.\n", argv[1]);
		exit(EXIT_FAILURE);
	}

	puts("--");
	puts("Read a byte sequence which is invalid as a wide character string.");
	puts(" bytes: 0xe3, 0x81, '\\0'");

	errno = 0;
	ret = fgetws(wcs, WIDE_STR_LEN, fp);

	if (ret == NULL) {
		puts("Return Value: NULL");

		if (errno == EILSEQ)
			puts("errno = EILSEQ");
		else {
			printf("errno = %d\n", errno);
			result = 1;
		}
	} else {
		printf("Return Value: %p\n", ret);
		for (i = 0; i < wcslen(wcs) + 1; i++)
			printf(" wcs[%zd] = %04x", i, (unsigned int) wcs[i]);
		printf("\n");
		result = 1;
	}

	/* Test for il_str2. */
	if ((fp = fopen(name2, "r")) == NULL) {
		fprintf(stderr, "Can't open %s.\n", argv[1]);
		exit(EXIT_FAILURE);
	}

	puts("--");
	puts("Read a byte sequence which is invalid as a wide character string.");
	puts(" bytes: '0', '\\n', 'A', 'B', 0xe3, 0x81, 'c', '\\0'");

	errno = 0;
	ret = fgetws(wcs, WIDE_STR_LEN, fp);

	if (ret == NULL) {
		puts("Return Value: NULL");

		if (errno == EILSEQ)
			puts("errno = EILSEQ");
		else
			printf("errno = %d\n", errno);

		result = 1;
	} else {
		size_t i;

		printf("Return Value: %p\n", ret);
		for (i = 0; i < wcslen(wcs) + 1; i++)
			printf(" wcs[%zd] = 0x%04x", i, (unsigned int) wcs[i]);
		printf("\n");

		for (i = 0; il_str2[i] != '\n'; ++i)
			if ((wchar_t) il_str2[i] != wcs[i]) {
				puts("read string not correct");
				result = 1;
				break;
			}
		if (il_str2[i] == '\n') {
			if (wcs[i] != L'\n') {
				puts("newline missing");
				result = 1;
			} else if (wcs[i + 1] != L'\0') {
				puts("read string not NUL-terminated");
				result = 1;
			}
		}
	}

	puts("\nsecond line");
	errno = 0;
	ret = fgetws(wcs, WIDE_STR_LEN, fp);

	if (ret == NULL) {
		puts("Return Value: NULL");

		if (errno == EILSEQ)
			puts("errno = EILSEQ");
		else {
			printf("errno = %d\n", errno);
			result = 1;
		}
	} else {
		printf("Return Value: %p\n", ret);
		for (i = 0; i < wcslen(wcs) + 1; i++)
			printf(" wcs[%zd] = 0x%04x", i, (unsigned int) wcs[i]);
		printf("\n");
	}

	fclose(fp);

	unlink(name1);
	unlink(name2);

	return result;
}
